home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / feb94 / chal111.gif < prev    next >
Graphics Interchange Format  |  1996-07-01  |  42KB  |  549x429  |  4-bit (15 colors)
Labels: text | screenshot | display | number | software | computer
OCR: SORTFLTR :: btnOk :: pushButton* method pushButton(var eventInfo Event) var dyMastRec vPassDynArray endVar ; Make sure value in field isn't blank. if fldSortOrder .isBlank( ) then fldSortOrder = 1stSortOrder.list.value endIf ; If the record is new or is being edited and hasn't been posted, then ; switching the index might fail if the record can't be posted. if uiMastTable.switchIndex(dyIndexes[fldSortOrder], True) then if fldFilterToggle = "Filter Off" then fCaller.setFilter() else DoFilter() ; Create filter command endIf dySortInfo["Index"] - fldSortOrder dySortInfo["Filter"] = iif(fldFilterToggle = "Filter off","None", String(txtFilterValue)) endIf ; Update the values in the calling form's dySortInfo array FCaller.boxSpeedBar.btnSortFilter.PutInfo(dySortInfo) tcMast.close( ) ; Close the TCursor formReturn( ) endMethod Edit Line: 11 Col: 1